Sub muestra_mat_To()
    Dim i As Integer
    Dim m(-2 To 3) As Integer
    m(-2) = 5
    m(-1) = 3
    m(0) = 15
    m(1) = -2
    m(2) = 22
    m(3) = 10
    Debug.Print "LBound (" & LBound(m) & _
    ") UBound (" & UBound(m) & ")"
    For i = LBound(m) To UBound(m)
        Debug.Print "m(" & i & ") : " & m(i)
    Next i
End Sub
